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1 Follow Object 


This allows an object to follow another object, whilst 
keeping a distance. 


Step Event: 

if instance exists(obj player) 

( 
if distance to object (obj player)>220 
( 


move towards point(obj plaver.x,obj plaver.v,4); 


speed-0; 


image angle-point direction(x,v,obj player.x,obj . 
player.y); 


) 
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2 Orbit Object 


This makes one object orbit another. 


Create Event: 
ang=0; 

xx=0; 

yy=0; 

dist=400; 

Step Event: 
ang++; 

ang=ang mod 360; 
Draw Event: 


x = obj player:x 4 


y = obj player.y 4 


draw self(); 


leng 


leng 


thdir x(dist 


=p 


thdir y(dist 


=p 


ang) ; 


ang); 
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3 Random Name Generator 


This code makes a random name, generated from 
random strings. 


Code: 


partl=choose ("Hé "Ha", "Qut. ba s "Ja", "Jo "Urn". Ww 
To "od, "Mi") > 


part2-choose("pad","kak","wad","pip","bar","ral", 
"xen", "jar") ż 


part3-choose("au","ei","oo","ee","ou"); 


part4=choose (many; "prs "EN, "t^. "nut Wem) $ 


name=partl+part2+part3+part4; 
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4 Top Down Movement 


Simple top down movement and collision system. 


Create Event: 


sprite index-spr down; 


Step Event: 
if (keyboard check (ord ("W"))) 
( 

sprite index-spr up; 

image speed-1; 


if lplace meeting(x,v-2,0bj crate) y-=2; els 
yt-2; 


} 
else if (keyboard cheek (ord ("Ss") 
{ 

sprite index=spr down; 


image speed=1; 


if {place meetling(x,y-2,0b] cratey y+=2; els 
y--2; 


) 


else 
if (keyboard check(ord("A"))) 
( 

sprite index-spr left; 


image speed-1; 


if place meetrtng(x-2,y,Ob] crate) x-=2; els 
x+=2; 


) 
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else 
if (keyboard check (ord("D"))) 
( 

sprite index-spr right; 


image speed-1; 


if !place meeting(x+2,y,obj crate) x+=2; 


x--2; 


else 


image speed-0; 


ls 
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5 Screen Shake 


A simple screenshake effect. 


Create Event: 


viewStartX = camera get view x(view camera [0]); 


viewStartY 
screenShake 
shakeTimer 


startAngle 


— false; 


camera get view y(view camera[0]); 


//Screenshake Values - CHANGE THESE FOR 
GREATER/LESSER EFFECT 


shiftLeft = -5; //H 
the right 
shiftRight = 5; //H 
the left 

angleLeft = -1; //H 
tilt anti clockwise 
angleRight = 1; //H 
tilt clockwise 
endShake = 100; //H 
Step Event: 


OW 


low 


OW 


OW 


OW 


much 


much 


much 


th 


screen may move 


screen may move 


screen angle may 


screen angle may 


shake lasts for 


if (mouse check button pressed(mb left)) 


( 
ScreenSha 


shakeTime 


if (screenShake 


( 


ke = 


Lr = 


true; 


0; 


true) 


LO 


LO 
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shakeTimer ++; 


quakeX = irandom range (shiftRight, 
shiftLeft); 


quakeY = irandom range (shiftRight, shiftLeft); 


angle = startAngle + irandom range (angleRight, 
angleLeft); 


camera set view pos (view camera[0], 0 + quakex, 
0 + quakeY); 


camera set view angle (view camera[0], angle) 


if (shakeTimer >= endShake) £ 


screenShake = false; 


angle = startAngle 


camera set view pos (view camera[0],viewStartX, vie 
wStartY); 


camera set view angle (view camera[0], 0); 
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6 Bomb Destruction Zone 


Creates multiple explosion instances in a set pattern. 


Example Step Event: 

x-mouse x; 

y-mouse y; 

if mouse check button pressed(mb left) 


( 


instance create laver(x,v, 'Instances'',0bj exp); 
var callback = function) 


( 


instance create laver (x- 
128,y,"Instances",obj exp); 


) 


var. handle = call later(0.9, 
time source units seconds, callback); 


var callback - function() 


( 


instance create layer (x+128,y,"Instances",ob) exp 


); 
) 


var Randle = “Ca bil crater, 
time source units seconds, callback); 


var callback = function) 


instance create layer(x,y- 
128,"Instances",obj exp); 


) 


var handle = Call later (045; 
time source units seconds, callback); 
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var callback = funttion() 


( 


instance create layer(x,y+128,"Instances",obj exp 


Li 
) 


var handle = Call Later(0.9, 
time source units seconds, callback); 


var callback = function() 


( 


instance create laver(x- 
256,y,"Instances",obj exp); 


) 


var handle = call later(1, 
time source units seconds, _callback); 


var callback = function () 


{ 


instance create layer(x*256,y,"Instances",obj exp 


); 
} 


var handle = call Later (1, 
time source units seconds, callback); 


vat callback = function) 


instance create layer (x, y- 
256,"Instances",obj exp); 


) 


18 


var handle = call later(b, 
time source units seconds, callback); 


war callback = function () 


{ 


instance create layer (x,y+256,"Instances",ob) exp 


E 
} 


var handle: Call. raberil, 
time source units seconds, callback); 
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7 Circular Healthbar 


This draws a circular healthbar. 


Draw Event: 
xx=500; 

yy-500; 
width-50; 
radias-200; 
start angle-90; 


amount= (360/100) *health; 


/ /bacground 
for (var i = 0; i < 360; i += 1) 
( 
if i<amount draw set colour(c green); else 


draw set colour(c red); 


targetposxstart=xx+lengthdir x(radias,i+start ang 
le); 


targetposxend=xx+lengthdir x(radias- 
width, i+start angle); 


targetposystart=yy+lengthdir y(radias,i+start ang 
le); 


targetposyend=yy+lengthdir y(radias- 
width, i+start angle); 


draw line width (targetposxstart, targetposystart,t 
argetposxend, targetposyend, 5); 


) 
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Step Event for testing: 
if mouse check button (mb left) 
( 
heetthe-7 
) 
if mouse check button(mb right) 
( 
health++; 
) 


health=clamp (health,0,100); 
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8 Volume Based On Distance 


Changes volume based on distance between 2 
instances. 
Script: 
function relerp(x0,x1,v, y0,y1) 
( 
return y0+(yl-y0)*(v-x0)/(x1-x0); 


) 


Create Event: 
dist=0; 
volume-1; 

min dist-10; 


max dist-500; 


music-audio play sound(snd music,l,true); 


Step Event: 

x-mouse x; 

y-mouse y; 
dist-distance to object(obj player); 


volume-relerp(min dist,max dist,dist,1,0); 


volume=clamp (volume,0,1); 


audio sound gain (music,volume, 0); 
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9 Snow Weather Effect 


A simple snow effect. 


Just pop this into a Step Event: 


effect create above(ef snow,x,y,5,c white); 
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10 Password Easter Egg 


Allows the user to type a code that could used to 
unlock special game features. 


Create Event: 
password="cheese"; 


cheat=false; 


Step Event: 
if keyboard check pressed(vk space) 
( 
keyboard string=""; 
) 
if keyboard string-password 
( 
cheat-true; 


) 


Example Draw Event: 


draw set font(font text); 


draw set colour(c white); 


draw text(50,50,"Type Password (which is 
cheese"); 


draw text(50,100,"Press space to clear"); 


draw text(50,150,keyboard string); 


if cheat 
( 


draw text (50,250, "Cheat Unlocked"); 
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else 


draw text (50,250, "Cheat Locked"); 
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11 Average Position Between 2 
Instances 


Gets the average position of two instances, based on 
their sprite origin. 

Draw Event: 

draw set colour(c white); 


draw text (100,100,"Move Mouse"); 


xpos-obj cross.x+(obj target.x-obj cross.x)/2; 


ypos-obj cross.yt(obj target.y-obj cross.y)/2; 
draw set colour (Cc green); 


draw circle(xpos,ypos,8, false); 


draw text (100,200,xpos); 


draw text 


~ 


100,250,ypos); 
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12 Random Dice Rolls 


Rolls two dice and stores the result. 


Create Event: 
dicel-0; 
dice2-0; 
state="wait"; 


value=0; 


Step Event: 


if state="wait" && 
mouse check button pressed(mb left) 


( 


state="roll"; 


alarm[0]=game get speed (gamespeed fps) *4; 
} 
if state="roll" 
{ 
dicel=irandom (5); 
dice2=irandom (5); 
) 


if state-"done" && 
mouse check button pressed(mb right) 


( 

room restart(); 
} 
Alarm 0 Event: 


state="done"; 


27 


Draw Event: 
draw set colour(c white); 


draw text (100,100,"Doing "+state) 


if state-"wait" draw text (100,150,"Tap Left 
Button To Roll"); 


if state-'roll' or state="done" 
( 


draw Sprite (spr dice,dicel,256,516); 


draw sprite(spr dice,dice2, 640,512), 


if state-''done'' 


( 


value=dicel+dice2+2;//ADD 2 BECAUSE IMAGE INDEX 
0 HAS A VALUE OF 1 


draw text 


~ 


100,150, "You Rolled "+string (value)); 


draw text 
Restart"); 


~ 


100,200, "Right Mouse Button To 


) 
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13 On Screen Keyboard 


A simple on-screen keyboard that allows the user to 


enter text. 


obj conrol Create Event: 


//top row 


var alpha 


bet = "OWERTYUIOP"; 


for(i = 0; i«10; i++) { 
var bt = instance create Layer (64+1*32+(8*1); 
64,"Instances", obj button); 
bi letter = string char ab(ialphabet, iri), 
) 
//middle row 
var alphabet = "ASDFGHJKL"; 
for(i = 0; i«9; i++){ 
vat bt = Instance create. Layer(724315524(8*1), 
104, "Instances",obj button); 
bt. Letter = string char at(alphabet; 151); 
) 
//BOTTOM row 
var alphabet = "ZXCVBNM"; 
for(i = 0; i«7; i*-*)( 
var bt = instance create layer (88+i*32+(8*i), 
144, "Instances", obj button); 
bt.letter = string char at (alphabet, i+1); 


global.entered string-""; 
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Step Event: 
if keyboard check pressed(vk space) 


( 


global.entered string=""; 
) 
if keyboard check pressed(vk enter) 
( 
room goto(room show); 
) 
Draw Event: 


draw set colour(c black); 


draw set halign(fa left); 


draw set font(fnt word); 


draw text(100,400,global.entered string); 


draw text (10,600,"Tap Space To Clear Text"); 


draw text (10,650,"Tap Enter To Save"); 


draw text(10,700,"Click Buttons With Mouse"); 


obj button Create Event: 


letter - "A"; 

image speed - 0; 

Step Event: 

if instance position(mouse x,mouse y,id) 
( 


if mouse check button(mb left) 


image index — 3; 


else 


image index = 2; 


if mouse check button released (mb left) 


global.entered string+=letter 


else 


image index=0; 
} 


Draw Event: 


draw_self(); 


draw set font(fnt button); 


draw set halign(fa center); 


draw set valign(fa top); 


draw text (x+16, yt4, 
string hash to newline(letter)); 


draw set halign(fa left); 
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14 Array Sort 


This example sorts words alphabetically. 


Create Event: 


array-["Pear","Apple","Banana","Lemon","Kiwi","Me 
lon","Grape","Orange"]; 


Step Event: 
if mouse check button pressed(mb left) 
( 

array sort (array, true); 
} 
if mouse check button pressed(mb right) 
( 

array SOPtiarray,Tdls5]7 
} 
if mouse check button pressed (mb middle) 
( 


room restart(); 
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Draw Event: 


var size= array length. id (array); 


draw se 


draw se 


draw text(50,50,"Current Order"); 


for (va 


( 


t colour(c white); 


t_font (font_text); 


r i = 0; i < size-1; i += 


1) 


draw text (100,200+(40*1),array[1]); 


) 


draw text(50,600,"Left Mouse Button To Sort Down 
nRight Mouse Button Sort UpinMiddle Button To 


Restart 


UNG 
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15 Colour Picker 


A system that allows the player to click and store a 
colour. Great for letting the user choose a colour 
scheme. 


Create Event: 
saved colour-c red; 


current colour-c white; 
Step Event: 
if mouse check button pressed(mb left) 
( 
saved colour=draw getpixel (mouse x,mouse y); 
) 
Draw Event: 
draw sprite(sprite index,0,room width/2,0); 


current colour-draw getpixel(mouse x,mouse y); 


draw set font(font text); 


draw set oolour(ourfrent colour); 
draw text(200,700,"Current Color"); 
draw set colour(saved colour); 


draw text(200,650,"Saved Colour - Left Mouse 
Button To Save"); 
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16 Numbers To Speech 


This script turns numbers to speech. Range 1s O to 
999999. 


Script code: 
function integer to english(int) ( 


// Lookup tables 


Static digits = ["", One, Two, Three, Four, 
Five, Six, Seven, Eight, Nine]; 


static teens = [Ten, Eleven, Twelve, 
Thirteen, Forteen,Fifteen, Sixteen, 
Seventy,Eighteen, Nineteen]; 


static. tens. Tl. V. Twenty, TIVEEEY, 
Forty, Fifty, Sixty, Seventy, Eighty, Ninety]; 


Sstrings-ds List create); 


// Decompose digits 


// Decompose digits 


var thousands - (int div 1000) mod 1000; 
var hundreds = (int div 100) mod 10; 

var tens = (int div 10) mod 10; 

var units - int mod 10; 


// Accumulator 


var str = ""; 


// Add thousands 
if (thousands > 0) { 
integer to english (thousands) ; 


ds list add(strings, Thousand); 
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// Add hundreds 
if (hundreds > 0) ( 


if ds_list_size(strings)!=0 { 


ds list add(strings, digits [hundreds]) 


ds list add(strings, Hundred) ; 


// Add tens and digits 
if (int mod 100 > 0) ( 
if ds_list_size(strings)!=0 { 
ds list add(strings,And); 
) 
switch (tens) ( 


case O: 


ds list addistrinġs, digits [units]; 
break; 
case 1: 


ds_list_add (strings, 
teens [units]); 


break; 


default: 


ds list add(strings, tens [tens]); 


if (units > 0) { 


36 


ds list add(strings, digits [units]); 


break; 


// Done 

return strings; 
} 
Example Usage, obj demo: 
Create Event: 
value-irandom(100000); 


list-ds list coreate(); 


list-integer to english(value); 


voice-audio play sound(Pause,l,false); 


Step Event: 


if laudio is playing (voice) 


( 


if ds list size(list) l-0 

( 
to play-list[|0]; 
voice=audio play sound(to play,1,0); 


ds last delete(list,0); 
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if mouse check button pressed (mb left) 


( 


room testakti); 
} 


Draw Event: 


draw set font(c white); 


draw set font (font text); 


draw text (100,100, value); 


size-ds list size (list); 


draw text(100,200,size); 
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17 Teleport 


Teleports player between two instances. 


Create Event: 


sprite index=spr down; 


Step Event: 
if (keyboard check (ord("Ww"))) 
( 
sprite index-spr up; 
image speed-1; 
y--2; 
} 
else if (keyboard check(ord("S"))) 
( 
sprite index-spr down; 
image speed-1; 


yt-2; 


else 
if (keyboard check (ord("A"))) 
( 
sprite index-spr left; 
image speed-1; 
X-=2; 
) 
else 


if (keyboard check(ord("D"))) 
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sprite index=spr right; 
image speed=1; 


x+=2; 


else 


image speed-0; 
} 
if instance place(x,y,obj red) 
( 
x-obj green.x+100; 
v-obj green.v; 
) 
if instance place(x,y,obj green) 
( 
x-obj red.x+100; 


v-obj red.v; 
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18 Queued Messages 


This queues text message and plays them in order. 


Great to provide info to the player, for example on a 
tutorial level. 

Create Event: 

value=""; 

list-ds. list oreate(); 


ds list add(list,"Hello","Sample Message","Nice 
To Meet You","Have A Great Day"); 


alarm[0]=game get speed (gamespeed fps)*4; 


Alarm 0 Event: 


alarm[0]=game get speed (gamespeed fps)*4; 


if ds list size(list)!-0 
( 

value=list[|0]; 

ds list delete(list,0); 
} 


DrawEvent: 


draw set font(c white); 


draw set font (font text); 


draw text (100,100, value); 
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19 Shop System 


A simple shop system that allows player to buy and sell 
weapons. 


obj button parent Step Event: 
if position meeting (mouse x,mouse y,id) 
( 

image index-1; 

if mouse check button(mb left) 

( 


image index-2; 


else 


image index-0; 
) 
obj buy parent Left Mouse Button Release Event: 
if global.cash»-global.items[my id,5) 
( 


global items [my 1d,35]%=1$ 


global.cash-=global. items [my id,5]; 


audio play sound(snd purchase,1, false); 


else 


audio play sound(snd not enough,1,false); 
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obj sell parent Left Mouse Button Released Event: 


if global.items[my id,3]>=1//check player has 
item to sell 


( 


global.items [my id,3]-=1;//reduce item counnt 


global.cash+=global. items [my id,4];//increase 
cash 


audio play sound(snd cash,1,false), 


) 


else//no items to sell 
( 
audio play sound(snd no items,1,false); 
} 
obj buy 1 Create Event: 
my id=1; 
obj sell 1 Create Event: 
my id=1; 
obj hud Create Event: 


global.cash-1000; 


//gunl 

global.items[1,1]=spr gun 1; //gun sprite 
global.items[1,2]="Gun"; //description 
global.items[1,3]=10; / / ammount 
global.items[1,4]-50 //cost 
global.items(1,51-40; //sell for 
//gun2 
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global. 


//gun3 


global. 


globa 


„i 


global. 


i 


global. 


global. 


i 


Draw Event: 


draw se 
draw set 
draw set 


draw set 


tems[3,3]=1 


tems[3,4]=1 


tems[2,1]=spr_gun_2; 


tems[3,1]-spr gun 3, 


tems[3,5]=800; 


c font (font info); 


 colour(c white); 


 halign(fa center); 


_valign(fa middle); 


///draw cash 


//gun sprite 


tems[2,2]="Double Shotgun"; 


/ / ammount 
//cost 


//sell for 


//gun sprite 


tems [3,2]="Missile Launcher"; 
//description 


/ / ammount 
//cost 


jjsell for 


draw text(room width/2,80,"Cash Available 
"+string(global.cash)); 


//draw headers 


draw_ 
draw_ 
draw ` 


draw ` 


text (128,128,"Image") ; 
text (256,128, Type"); 

text (384,128,"Inventory") ; 
ESRE(OLŻy 128,4 Buy Eor); 
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draw text (640,128,"Sell For"); 


//draw images 


draw sprite (global.items[1,1],0,128,256); 


draw sprite (global.items[2,1],0,128,384); 


draw sprite (global.items(3,11,0,128,512); 


for (var i = 1; 1 <= 3; 1 += 1) 
( 


draw sprite (global.items[i,1],0,128,128+128*1); 


//draw info 


Lor (var = de Lod Sr 1, de=") 


draw text (128*j,128+(128*i),global.items[i,j]); 


} 
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20 Parallax Background 


A simple example of how multiple layers can be used 
to create a parallax background. 


Create Event: 


flying level=200; 


Step Event: 


/// (description Object management 


global.difference-(flying level-y)/10;//set as a 
global value as it will be used for parallax 
background 


image angle-global.difference-10; 


//keep in screen 
y-clamp(y,20,380) 
//move 


if y<flying level y+=2; 


if y>flying_level y-=2; 


//backgrounds 

var lay idl = layer get ad bbg. 1 )y 

var Lay. 192 = layer Get id("bbg 2")y 

var lay _id3 = layer get sd("b5g 3")j 

layer y(lay idl,-2004global.ditference*2); 


layer y(lay id2,30tglobal.difference”1): 


layer y(lay id3,40+global.difference*0.5); 


if keyboard check(ord("W")) v--5; 


if keyboard check(ord("S")) y+=5; 
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Draw GUI: 


draw set colour(c black); 


draw set font (font text); 


draw text (20,20, "Use Keys W & S"); 
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21 Eight Directional Movement 


8 Directional sprite control, with basic movement. 


Step Event: 
up-keyboard check (ord("Ww")) 
down-keyboard check (ord("S") ) 
left-keyboard .check(ord("A")) 


right-keyboard check (ord("D")) 


if up && right 

( 
sprite index-spr up right; 
image speed-1; 


x=x+lengthdir x(1,45); 


v-Vtlengthdir v(1,45); 

) 

else 

if up && left 

( 
sprite index-spr up left; 
image speed-1; 


x-xrlengthdir x (1,155); 


y=y+lengthdir y(1,135); 


) 

else 

if down && left 
( 


sprite index-spr down left; 
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image speed=1; 


x=xtlengthdir x(1,225); 


y-ytlengthdir y(1,225); 

} 

else 

if down && right 

{ 
sprite index=spr down right; 
image speed-1; 


x=x+lengthdir x(1,315); 


y-ytlengthdir y(1,315); 
} 
else 
If up 
{ 
sprite index-spr up; 


image speed=1; 


sprite index-spr down 
image speed-1; 
ytt; 

} 

else 


if left 
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sprite index=spr left 
image speed=1; 
ESA 

} 

else 

if right 

{ 
sprite index-spr right; 
image speed-1; 


X++; 


image_speed=0; 
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22 Room Transition Fade In & Out 


Darkens the room on room start and changing rooms. 


obj fade in Create Event: 
alp-0; 
active=false; 
Step Event: 
if active 
( 
alp+=0.01; 
if alp>l room goto (Rooml) ; 


) 


Draw Event: 
draw set colour(c black); 
if active 


( 


draw set alpha(alp); 


draw rectangle(0,0,room width,room height, false); 


draw set alpha(1), 
) 
obj fade out Create Event: 
alp-0; 
active-false; 
Step Event: 


if active 


( 


alpt-0.01; 
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if alp>l room goto (Room2) ; 


) 


if mouse check button pressed(mb left) 


( 


activestrue; 
) 
Draw Event: 
draw set colour(c black); 


if active 


( 


draw set alpha(alp); 


draw rectangle(0,0,room width,room height, false); 


draw set alpha(1); 


) 


draw set font(font text); 


draw text(50,50,"Tap Left Mouse Button To Change 
Rooms"); 
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23 Nine Slice Example 


Draws an image with special settings, allowing various 
size boxes for example. 


Assumes nine slice sprite has been set up. 


Draw Event: 


draw sprite ext (spr example, 0, 
100,100,3,1,0,c white,1); 


draw sprite ext (spr example, 0, 
100,400,2,3,0,c white,1); 
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24 Hit Box 


Makes a hit box when attacking that can be used to 
detect attacks. 


obj player Create Event: 
image speed-0; 
Step Event: 


if mouse check button pressed(mb left) 
( 
image speed-1; 
) 
if image index-4 


( 


instance create laver(x-220,v470,'ħit', 
obj_hit); 


} 


if image_index=image_number-1 


{ 
image_speed=0; 
image_index=0; 

} 

obj_hit Create Event: 


alarm[0]=game_get_speed (gamespeed fps); 


Alarm 0 Event: 


instance destroy(); 
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25 Snap To Grid 


Snaps an instance to a grid and allows placements of 
instances at those positions. 

Step Event: 

x-mouse x; 

y-mouse y; 

move snap(64,64); 

if mouse check button pressed(mb left) 


( 


instance create layer(x,y,"Instances",obj placed) 


r 


) 
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26 Hide & Seek 


A enemy that moves towards the player if they can see 
it. 


obj enemy Create Event: 


can See-talse; 


Step Event: 

qui 

collision line(x,y,obj player.x,obj player.y,obj 
crate, false, false) 


( 


can see-talse; 
else 


can see-true; 
} 
if can_see 


{ 


move towards point(obj player.x,obj player.y,1); 
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27 Save Highscore 


A simple system to save a highscore. 


To load current highscore: 
ini open ("savedata. ini"); 
highscore = ini read real("savel", “score”, 0 ); 


ini close(); 


To test and save: 
if score>highscore 
( 
ini open("savedata.ini"); 
ini write feal-(l'savelt, "score", score ); 
ini close(); 


game restart(); 
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28 Sprite Animation Control 


A simple system to play an animation and then return 
to idle when animation 1s complete. 
Create Event: 
sprite index-spr idle; 
image speed-1; 
Step Event: 
if keyboard check (ord ("A")) 
( 

image index-0; 

sprite index-spr attack; 
} 
if keyboard check (ord ("D")) 
{ 

image_index=0; 

sprite index=spr dead; 
) 
if keyboard check (ord ("H")) 
( 

image index-0; 

sprite index-spr hurt; 
} 
if keyboard check (ord("J") ) 
{ 

image index=0; 


sprite index-spr jump; 
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if keyboard check (ord("R") ) 
{ 

image index=0; 

sprite index=spr run; 
} 
if keyboard check (ord("W") ) 
( 

image index-0; 


sprite index-spr walk; 
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29 Jet Pack & Gravity 


Flying control system. 


Create Event: 
gravity=0.1; 
image angle-45j 
Step Event: 
if mouse check button(mb left) 
( 

motion add(90,0.5); 
) 
if y«128 
( 

vspeed=0; 

y=129; 
} 
if y>room height-128 
( 

vspeed=0; 


y=room height-129; 
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30 Enemy Movement On Platform 


Make an enemy walk on turn whilst on a platform. 


Create Event: 


move speed=2; 


Step Event: 


x+=move speed; 


xpos=x+sign (move speed) *40; 


ypos=y+5; 
if !instance position (xpos,ypos,obj platform) 


( 


move speed—-move speed; 
} 


image xscale=sign (move speed); 
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31 Tweening 


This slowly moves an instance between two points 
with speed based on the distance remaining. 
Create Event: 

dir=1; 

start=200; 

target=800; 

x=start; 

Step Event: 

if dir-- 

( 


diff-target-x; 


xt-diff/12; 


dir--1; 


dir-1; 
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32 Door & Key 


A system that only allows a player open a door when 
they have the key. 

Create Event: 

has key=false; 

Collision With obj key: 

has key=true; 


with other instance destroy () 


Collision With obj door: 
if has key 
( 
with other instance destrov(); 
} 
else 
x=xprevious; 


y=yprevious; 


Step Event: 
if (keyboard check (ord("Ww"))) 
( 
sprite index-spr up; 
image speed-1; 
y--2; 
) 
else if (keyboard check(ord("S"))) 
( 


sprite index-spr down; 
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image speed=1; 


yt-2; 


else 
if (keyboard check (ord("A"))) 
( 
sprite index-spr left; 
image speed-1; 
X-=2; 
) 
else 
if (keyboard check(ord("D"))) 
( 
sprite index-spr right; 
image speed-1; 


x+=2; 


else 


image speed-0; 
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33 Wrap Instance Around Room 


Wraps an object around room border, drawing around 
edges of the room. 


Draw Event example: 
draw self (); 


if (keyboard check (ord("A"))) 


x--2; 


if (keyboard check(órd("D"))) 
x+=2; 
if x«0 x-room width; 


if x»room width x-0; 


size-sprite width/2; 


if x«size*2 
( 


draw sprite(sprite index,0,room width-x- 
size+116,y); 


} 
if x>room width-size*2 
( 


draw sprite(sprite index,0,size*2-(pos)-256,y); 
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34 Change Transparency On Collision 


A useful idea, that can used when a player goes 
beneath a tree or building roof. 


Tree Create Event: 
alp=1; 


Step Event: 

if 

instance position(obj player.x,obj player.y,id) 
( 


alp-0.4; 


alp-1; 


Draw Event: 


draw sprite ext(sprite index,0,x,y,1,1,0,c white,alp): 
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35 Weapon Upgrade System 


A simple system to allow player to upgrade weapons. 


Weapon Create Event: 
number of weapons=image number; 


current=0; 


alarm[0]=game get speed (gamespeed fps) *4; 
Step Event: 
if keyboard check pressed(ord("U")) 


( 
current++; 
) 
if keyboard check pressed(ord("D")) 
( 


current—-; 


) 


current=clamp (current, 0, number of weapons-1); 


Alarm 0 Event: 


alarm[0]-game get speed (gamespeed fps)*4; 


if current-0 


( 


instance create layer(x,y, bullets",0bj bullet, 


{hspeed:5}); 
} 


if current=l 


{ 


instance create layer(x,y+22,"bullets",obj bullet 
r ihspeed:5)); 
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instance create layer (x, y- 
22,"bullets",obj bullet, (hspeed:5)); 


) 


if current=2 


( 


instance create laver(x,v48, 'bullets'',0bj bullet, 
{hspeed:5}); 


instance create layer (x, y- 
8,"bullets",obj bullet, {hspeed:5}); 


) 


if current=3 


( 


instance create layer(x,y+16,"bullets",obj bullet 
r ihspeed:5)); 


instance create layer(x,y- 
16, "bullets",obj bullet, {hspeed:5}); 


) 


if current=4 


( 


instance create layer (x,y+16,"bullets",obj missil 
e, (hspeed:5]); 


instance create layer (x,y- 
16,"bullets",obj missile, (hspeed:5)); 


) 


if current-5 


( 


instance create layer(x,y,"bullets",obj missile, 
(hspeed:5]); 
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instance create layer(x,y+16,"bullets",obj missil 
e, {hspeed:5}); 


instance create. Layer (x, y= 
16,"bullets",obj missile, {hspeed:5}); 


) 


Draw Event: 


draw sprite(sprite index,current,x,y); 
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36 Knockback 


A basic knockback system that can built upon. 


Create Event: 
knockback=false; 


target=1200; 


Step Event: 
if x<target 66  knockback-false 


{ 
xtt; 


image speed-1; 
else 


image speed-0; 
) 
if mouse check button pressed(mb left) 
( 

knockback-true; 

image index-5; 


alarm[0]-game get speed (gamespeed fos) 427 


} 
1f knockback 


{ 


x--2; 


Alarm 0 Event: 
knockback-false; 
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37 Road Builder 


Allows player to draw a path. Great for a range of 
game genres. 

Create Event: 

can build-false; 

cursor x-0; 


cursor y-0; 


Step Event: 

var road; 

road — obj road; 

cursor x = (mouse x div 32) 32 
cursor y = (mouse y div 32)* 32 
can build = 

( 


place meeting(cursor x - 1, cursor y, road) 


place meeting (cursor x + 1, cursor y, road) 


place meeting (cursor x, cursor y + 1, road) 


place meeting(cursor x, cursor y - 1, road) ) 


&& !place meeting(cursor x, cursor y, road) 


if mouse check button pressed(mb left) && 
can build 


( instance create layer(cursor x,cursor y,"Instan 
ces",obj road); l) 


Draw Event: 


draw sprite(spr cürsor,can build,cursof x,cufsor. 
y); 
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38 Select Multiple Troops 
Allows selection of multiple instances. 
Control Object: 


Create Event: 


xl-mouse x; 


yl-mouse y; 


x2-mouse x; 


y2-mouse y; 


last=ds list create(); 


Step Event: 
if mouse check button (mb left) 
( 
x2-mouse x; 
y2-mouse y; 
) 
if mouse check button pressed(mb left) 
( 


xl-mouse x; 


vl-mouse y; 
with obj troop 
( 


selected-false; 


) 


ds list-Clegr(list)i 


) 


if mouse check button pressed(mb right) 
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xl-mouse x; 


yl-mouse y; 


x2-mouse x; 


y2-mouse y; 
with obj troop 
( 


selected-false; 


) 


ds list clear(list); 


) 


if mouse check button released(mb left) 


( 


ds list Clear (list) 


with obj troop 


( 
qo 
collision rectangle(other.x1,other.yl,other.x2,0t 
her.y2,id,false,false) continue 


( 


id.selected-true; 


ds last add (other. list,aa); 


) 


Draw Event: 
draw set colour (e green) 


draw rectangle(x1,yl,x2,y2,true); 
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draw text (800,90, Selected IDs"); 


if ds list siżejlist)j20 


( 


for (i=0;i<ds_list_size(list);i++;) 


{ 


draw text (800,100+(1*32), list []1]); 


) 


draw text(50,50,"Left Mouse Click & Drag To 
Select - Right Click Reset"); 


obj troop 


Crete Event: 
selected-false; 


Draw Event: 


if selected 
( 


draw set colour(c lime); 


draw rectangle (bbox left,bbox top,bbox right,bbox 
“bottom, true); 


draw sprite ext (sprite index, image index,x,y,1,1, 
0,6 ted,l); 


else 


draw self(); 
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39 Road Connections 


System automatically draw the correct subimage to 
make roads connect. 


The main code tests for surrounding road connections 
and sets the according subimage: 

MaG, ty Dyp d Br dy Ta 

j = object index; 


d = 48;//size 


t = place meeting(x, y - d, J); 
b = place meeting(x, y + d, 3): 
r = place meeting (x + d, y, J); 
1 = place meeting(x - d, y, J); 


image index = -1 PE UA TO Br 


See the example program for a build version, 
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40 Lightning Effect 


A simple lightning effect that is adaptable for a range 
of uses. 
Script: 


function draw lightning simple(xposl, yposl, 
xpos2, ypos2, sizel, size2) 


( 
var Xprev,yprev,xx,yy,dir,t; 


xx-xposl; 


vv-vposl; 
t=median(-89,size2,89) 
do 
( 

Xprev-xx; 


yprev-yy; 


dir=point direction (xprev, yprev, xpos2, ypos2) + (t- 
random(t*2)); 


xxt-lengthdir x(sizel,dir); 


yyt=lengthdir y(sizel,dir); 
draw line (xprev,yprev,xx,yy); 
} 


until 
(point distance (xx, yy, xpos2, ypos2) <=sizel) 


draw line(xx,yy,xpos2,ypos2); 
) 
Example Usage in Draw Event: 


draw lightning simple(x,y,mouse x,mouse y,32,60); 
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41 Gravity Movement 


Showing various items with gravity. 


Create Event: 
grav=0.1; 
gravity=grav; 
dir="down" 

has hit-false; 


vspeed-=5; 


Step Event: 
if position meeting (x; yrl,ob) crate) 
( 

gravitv-0; 

vspeed=0; 


while instance position(x,y+1,obj crate) 


if mouse check button pressed(mb left) && 
instance position (mouse x,mouse y,id) 


( 
vspeed=-6; 


gravity=grav; 
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42 Blood Damage Effect 


Creates a blood effect that drips down the screen. 


Create Event: 

image index-irandom(6); 
image speed=0; 

image angle-irandom(359); 
move-false; 


alp=1; 


alarm[0]-game get speed (gamespeed fps)*2; 
Step Event: 


if move 


t 

alp-=0.004; 

yt 

if alp<=0 instance destrov(); 
; 
Alarm 0 Event: 


move=true; 


Draw Event: 


draw sprite ext (sprite index, image index,x,y,1,1, 
image angle,c white,alp);. 
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43 Tap Instance To Change Image 


Tap an instance to change it's subimage. 
Create Event: 

img-0; 

Step Event: 


if mouse check button pressed(mb left) && 
instance position (mouse x,mouse y,id) 


( 

img++; 

if img=image number img=0; 
} 
Draw Event: 


draw sprite(sprite index,img,x,y); 
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44 Bullet Holes 


A simple system for showing bullet shots. As a bonus 
the bullet holes can be used to detect damage. 
Control Object Step Event: 

x=mouse x; 

y=mouse y; 

if mouse check button pressed(mb left) 


( 


instance create layer(x,y,"Bullets",obj bullet ho 
le); 


} 
obj bullet hole 


Create Event: 


image angle-irandom(360); 


alarm[0]-game get speed (gamespeed fps) *2; 


Alarm 0 Event: 


instance destroy(); 
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45 Rope Between Objects 


Draws a hanging rope between 2 positions. 


Create Event: 
for (1=0; i<2; i++) 
( 
cpx[i]-random range (30, 300) ; 
cpy[i]=random_range (30, 300) ; 
} 
mouseDragging=-1; 


mouseDragx-0; 


mouseDragY-0; 


ropelength=300; 


Step Event: 

var mx=mouse x; 

var my=mouse y; 

var cCx,Cy; 

if (mouseDragging==-1) 
{ 


if (mouse check button pressed(mb left)) 


for (i=0;1<2; i++) { 
cx=cpx [i]; 
cy-cpyli]; 


if (((mx-cx)* (mx-cx))+((my-cy) * (my- 
cy))<400) 


mouseDragging=i; 
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mouseDragX-mx-cx, 


mouseDragY=my-cy; 


continue; 


jelse 


Cpx[mouseDragging]-mx-mouseDragX; 


cpy [mouseDragging] -my-mouseDragY, 


if (mouse check button released(mb left) )mouseDrag 
ging--1; 


) 


if mouse wheel up() 
( 

ropelength+=10; 
) 


if mouse wheel down() 
( 
ropelength-=10; 


) 


Draw Event: 


draw set colour (Cc blue); 


for(i=0;i<2;i+ 
+)draw circle (cpx[i],cpy[i],20, false); 
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if (point distance(cpx[0],cpy[0],cpx[1],cpy[1])5ro 
pelength) 


( 

draw set colour(c red); 

draw line(cpx[0],cpy[0],cpx[1],cpy[1]); 
jelse 


( 


DrawRope (cpx[0],cpy[0],cpx[1],cpy[1],ropelength) ; 
} 
Script: 


function DrawRope(xposl, yposl, xpos2, ypos2, 
leng) 4 


var xl-xposl; 


var yl=yposl; 
var x2=xpos2; 


var y2-ypos2; 


var xl,xr,yl,yr; 


if(xposl>xpos2) { 


xr = xl; 
yr = yl 
x] = RA 
yl = y2 
jelsef 

xl = xl; 
YL = y 

xr = x2 
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var l = leng; 


var v = abs(yl-y2); 


var h = xr-xl; 


// check for case where just a bit apart on x- 


axis - string is hanging totally vertical 
if (h<1) { 
bot = (0.5*(yl+y2))+(0.5*s); 


draw line(x1,y1,x1,bot), 


<~ 
‘Ne 


draw line(x2,y2,x2,bot 


exit; 


// Check for string being totally taut - if so, 
draw as straight line 


if ((v*v)+(h*h)>=(s*s) ) { 


draw line (x2,y2,x1,yl); 


exit; 


var c = sqrt(s*s - v*v); 


var 
h3,h5,invusq,u,hu,e,eneg,cosh,sinh,fu,dydfu,newu, 
limit,oldlimit; 
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// determine u (where u = 2a, and u sinh(h/u) - 
c= O) 


// Determine good starting point for u using 
Taylor series expansion 


h3 =h * h * h; 
h5 = h3 * h * h; 


invusq = (-0.166666666666666 * h3 + 
sqrt (0.0277777777777777 * h3 * h3 + 
OPUS 3333333333333 ^^ (NS cw SER) L 
(0.01666666666666666 * h5); 


u= 1 / sqrt(invusq); 


// Improve the approximation for u using 
Newton's method 


iterations = 0; 
do { 

hu = h/u; 

e = exp (hu); 


neg = 1/e;// exp(-hu) = 1/exp (hu) 


cosh = 0.5*(eteneg); 
sinh = 0.5* (e-eneg) ; 
fu = u*sinh - c; 


dydfu = sinh - hu*cosh; 


newu = abs(u - fu/dydfu); // This is where 
the formula for Newton's method is applied 


limit-abs (u-newu); 


u-newu; 
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iterations++; 


if(iterations>100) exit; // In case 
Newton's method fails somehow, don't crash the 
game 


juntil(limit«0.001 


— 
‘Ne 


var XV,YV; 


var a,midpoint, inva, hexp,hnexp,arcosh,midDist; 


a = 0.5*u; 


// Solve equation for known points to find x 
and y offset 


// http://www.dphsw.co.uk/2017/09/29/drawing-a- 
catenary/ 


midPoint = 0.59 (xl+xr); 

inva = 1/a; 

if(v«1) xv=midPoint; 

else{ 
hexp = exp(0.5*h*inva) ; 
hnexp = 1/hexp; 
sinh = 0.5* (hexp-hnexp) ; 
cosh = l/4a*2*slnhJ; 
if (cosh<=1) arcosh=0; 
else arcosh = In(cosh+sgrt (cosh*cosh-1)); 
midDist = a*arcosh; 


if(yr>yl) // In GM coords, right side is 
lower 
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xv = midPoint+midDist; 


else 


xv — midPoint-midDist; 


e = exp((xl-xv)*inva); 
eneg = 1/e; 
yv = a * 0.5 $ (e + eneg) + yl; 


// Set the starting coordinates 


var ip = xl; 


var jp = yl; 


// iterate along the rope - 20 points should be 
enough to look curved 


// change to 1/40 to increase to 40 points 
etc., for a higher resolution game 


var stepsize-1/20; 
var u2,u4,u8,ul6,i,ix; 
for (i=stepsize;i<l;it=stepsize) { 
ix-lerp(xl,xr,i); 
u = (ix-xv)*inva; 
e=exp (u); 
eneg-1/e; 
cosh=0.5* (eteneg) ; 


j = yv - a * cosh; 
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// if desired, could draw a custom sprite 
along 


// these coordinates instead of just a line 


// (If so, remember to also change special 
cases of draw line near top of function) 


draw line(ip,jp,ix,j); 


ip = ix; 


Dp = j; 


draw line(ip,jp,xr,yr); 
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46 English to Morse Code 


Converts text to morse code audio. 


Main conversion code: 


text-"this is an example sentence converted to 
morse code" 


morse list-ds list create): 

ds list add(morse list,Pause); 
source-text; 
Source-string upper (source); 

source length=string length (source); 
morse=""; 


voice=audio play sound(Pause,1, false); 


for (var char = 1; char < source lengthtl; char 
+= 1) 


( 


letter=" "s 


letter-string char at(source, char); 


if letter=="A" 


add=".-/"; 

ds list add(morse list,dot,dash, gap); 
} 
if letter=="B" 


{ 
add="-.../"; 


ds list add(morse list,dot,dot,dot,gap); 
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if letter=="C" 


add-"-.-./"; 


ds list add(morse list,dot,dash,dot,gap); 


if letter=="D" 


add="-../"; 


ds list add(morse list,dot,dot,dash, gap); 


if letter=="E" 


add="./"; 


ds list add(morse list,dot,gap); 


if letter--"F" 


add" omi nts 


ds list add(morse list,dot,dot,dash,dot,gap); 
} 


if letter=="G" 


add="--./"; 


ds list add(morse list,dash,dash, dot, gap); 


if letter=="H" 
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add="..../"; 


ds list add(morse List, dot, dot, dot, dot, gap); 
} 


if letter=="I" 


dde, Ms 


ds list add(morse list,dot,dot,gap); 


if letter=="J" 


add-".---/"; 


ds list add(morse list,dot,dash,dash,dash,gap); 
} 


if letter=="K" 


add-"-.-/"; 


ds list add(morse list,dash,dot,dash,gap); 


if letter=="L" 


add=".-../"; 


ds list add(morse list,dot,dash,dot, dot, gap); 
} 


if letter=="M" 


add="--/" e 
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ds list add(morse list,dash,dash, gap) ; 


if letter=="N" 


add-"-./"; 


ds list add(morse list,dash,dot,gap); 


if letter=="0" 


add="---/"; 


ds list add(morse list,dash, dash, dash, gap); 
} 


if letter=="P" 


add=".--./"; 


ds list add(morse list,dash,dash, dot, gap); 


if letter=="Q" 


add-"--.-/"; 


ds list add(morse list,dash,dash,dot,dash,gap); 
} 


if letter=="R" 


add=".-./"; 


ds list add(morse List, dot, dash, dot, gap); 
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if letter--'s' 


adde". "s 


ds list add(morse list,dot,dot,dot,gap); 


if letter=="T" 


add="-/ II E 


ds list add(morse list,dash,gap); 


if letter--"U" 


add-"..-/"; 


ds list add(morse list,dot,dot,dash,gap); 


if letter=="V" 


GATT sza SWE 


ds list add(morse list,dot,dot, dot, dot, dash, gap) ; 
} 


if letter=="W" 


add=".--/"; 


ds list add(morse List, dot, dash, dash, gap): 


if letter=="X" 
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add-"-..-/"; 


ds list add(morse list,dash,dot,dot,dash,gap); 
} 


if letter=="Y" 


add-"-.--/"; 


ds list add(morse list,dash,dash,dot,dash,gap); 
} 


if letter=="Z" 


add-"--../"; 


ds list add(morse list,dash,dash,dot,dot,gap); 
} 


if letter==" " 


add-" Xn"; 


ds list add(morse list,gap,gap); 


morse+=add; 


94 


47 Loop Through Instances 


Loops through a list of instances, creating and 
destroying them on screen. 


Create Event: 
pos=0; 


alarm[0]-game get speed (gamespeed fps) *2; 


list-ds list create(); 


ds list add(list,obj cannonl,obj cannon2,0bj cann 
on3,obj cannon4,obj cannon5,obj cannon); 


instance create layer(400,400,"Instances",list[| 
pos]); 


Alarm 0 Event: 


alarm[0]-game get speed(gamespeed fps)*2; 


to destroy-list[l|pos]; 


with (to destroy) instance destroy(); 
pos++; 


if pos>ds list size(list)-1 pos-0; 


instance create layer(400,400,"Instances",list[| 
pos]); 
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48 Slowly Rotate To Angle 


A missile shooting system that targets a position. 


Rotate Script: 
function scr rotate(startangle, targetangle, spd) 
( 


return startangle + 
clamp (angle difference (targetangle, startangle), - 
spd, targetangle) 


) 


Tower Step Event: 


targetx-mouse x; targety-mouse y; 


direction=scr rotate (direction, point direction (x, 
y,targetx,targety),3); 


image angle-direction; 


Missile Step Event: 


Largetx-mouse X; 


targety-mouse y; 


direction-scr rotate(direction,point direction (x, 
y,targetx,targety),3); 


image angle-direction; 


if mouse check button pressed(mb left) 


( 


missile-instance create layer (x+lengthdir x(30,im 
age angle),y+lengthdir y(30, image angle),"Instanc 
es",obj missile); 


missile.image angle-direction; 


missile.direction=direction; 


missile.speed=6; 
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49 Draw Clock 


This draws a clock with the users system time. 


Create Event: 
minute=0; 
second-0; 
hour-0; 


initial angle=+90; 


Step Event: 
hour=current hour; 


minute=current minute; 


second-current second; 
hours-string (hour); 


minutes-string (minute); 


seconds-string (second); 

séconds=string repeat("0"; 2- 

string length (seconds) )+seconds; 
minutes=string_repeat("0", 2- 

string length (minutes) )+minutes; 
hours=string_repeat("0", 2-string_length (hours)) 
+hours; 


Draw Event: 
//debugging draw set colour(c white); 
draw set color(c white); 


draw text (250,50,hours+":"+minutes+":"+seconds) ; 


//draw clock 
xx=500; 


vy=400; 
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radias=300; 

draw set color(c white); 

draw circle(xx,yy,radias, false); 
//numbers 


draw set colour(c black); 


draw set font (font text); 


draw set halign(fa center), 


draw set valign(fa middle); 
add angle-360/12, 


for (var i = l; i < 137 1 += 1) 


( 


xpos=xx+lengthdir x(radias-60, initial angle- 
(i*add angle)); 


ypos=yy+lengthdir y(radias-60,initial angle- 
(i*add angle)); 


draw text (xpos, ypos,i); 
} 
//second hand 
value=360/60*second; 
draw_set_colour(c_red); 


handxpos=xx+lengthdir x(radias-90, initial angle- 
value); 


handypos=yy+lengthdir y(radias-90, initial angle- 
value); 


draw line width (xx, yy, handxpos, handypos,5); 
//minue hand 
value-360/60*minute; 


draw set colour(c blue); 


handxpos=xx+lengthdir x(radias-110,initial angle- 
value); 
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handypos=yy+lengthdir y(radias-110, initial angle- 
value); 


draw line width (xx, yy, handxpos, handypos, 7); 
//hour hand 

value=360/12*hour; 

mins=12/60*minute*2 

value=value+mins; 


draw set. ċolour(ċ black); 


handxpos=xx+lengthdir x(radias-110,initial angle- 
value); 


handypos=yy+lengthdir y(radias-110, initial angle- 
value); 


draw line width (xx, yy, handxpos, handypos, 9); 
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50 Randomly Place Objects In Room 


Randomly places instances in the room. 


Main spawn code in Create Event: 
last-ds 1185C create); 


ds list add(list,obj cannonl,obj cannon2,0bj cann 
on3,obj cannon4,obj cannon5,obj cannon); 


for (var i = 0r i «ds list size(list); i += 1) 


( 


instance create layer(irandom range (100,room widt 
h-100), irandom range (100,room height- 
100), ''Instances',listl(lil); 


) 


100 


51 Get Text From Keyboard 


Allows user to enter text using the keyboard. 


Create Event: 
keyboard string=""; 
has done=false; 


done="" 


Step Event: 
if mouse check button pressed(mb left) 
( 
game restart(); 
) 
if has done exit; 
if keyboard check pressed(vk enter) 
( 
done-kevboard string; 
has done-true; 


) 


Draw Event: 


draw sect Font font text); 


draw set colour(c white); 


draw text(50,50,"Type Using Keyboard - Enter To 
Set - Delete To Clear NnLeft Mouse Button 
Restart"); 


if lħas done draw text(50,150,"Typed Text: 
"+keyboard string); 


if has done 
( 


draw text (50,250, ''Entered "+string(done)); } 
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52 Shoot Projectile With Gravity 


Allows player to shoot a projectile, with gravity 
applied. 


Tower Step Event: 


image angle=point direction(x,y,mouse 
"xXx, mouse y); 


Kee Um EE 
{ 
xx=lengthdir x(140,image angle); 
yy=lengthdir y(140,image angle); 


instance create layer(x+xx, ytyy, 
"Instances", ob] bullet, 


{ 


speed : 10, 
direction : image angle, 
image angle : image angle, 


gravity : 0.2 
Il: 
) 
Bullet Step Event: 


image angle-direction; 


if y»room height instance destroy(); 
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53 Fade On Player Collision 


This fades and destroys an instance 1f the player 
collides with it. 


Create Event: 
fading=false; 
alp=1; 
Step Event: 
if fading=true 
{ 
alp-=0.01; 
} 
if alps-0 instance destroy (); 
Draw Event: 


draw sprite ext(sprite index,0,x,y,1,1,0,c white, 
alp); 


Set fading to true when you want it to be destroyed. 
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54 Jump On Enemy To Kill 


Allows player to jump on enemy to destroy 1t. 
Enemy Step Event: 

inst-instance place(x,y+2,0obj player); 

if inst!-noone 


( if inst.bbox bottom»bbox top && inst.vspeed>0.1 


instance destroy(); 
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55 Calculate Size Of Area 


Allows user too click to positions on screen and 
calculate the size: 


Create Event: 
click=0; 


mess="Click Corner Of Rectangle"; 


Step Event: 


if click== 


( 
width-x2-x1; 
height=y2-yl; 


width=abs (width); 


height=abs (height); 
click++; 
} 


if mouse check button released(mb left) && 
elick== 


{ 

x2-mouse x; 

y2 -mouse y; 

click+=1; 

mess="Right Click To Restart"; 
) 


if mouse check button released(mb left) && 
elick== 


{ 


xl-mouse x; 
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yl= mouse 


clickt-1; 


BZ 


mess="Click Second Corner Of Rectangle"; 


) 


if mouse check button pressed(mb right) && 
click== 
( 
room restart(); 
} 
Draw Event: 
draw set colour(c black); 
draw set font (Pronk text); 
if click==3 
( 
sides text-string (2) (width+height)); 
area text-string (width*height); 
height text-string (height) ; 
width text-string (width); 
draw set colour (GC: blue); 
draw rectangle(x1,y1,x2,y2,false): 
draw set colour(c black); 
draw text (10,40, "width "+width text); 
draw text (10,80, "height "+height text); 
draw text (10,120,"perimeter "+sides text); 
draw text (10,160,"area "tarea text); 
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draw set colour (c Dlack); 


draw set font (font text); 


draw text (10,700,mess); 
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56 Draw Lines To Mouse Position 


Draw coloured line between two positions. 


Create Event: 


target x=0; 


target y=0; 


start x=50; 


start y=room height-50; 


Step Event: 


target x=0; 


target y-0; 


start x=50; 


start y=room height-50; 


ang=0; 


Draw Event: 


draw set colour(c white); 


draw set font (font text); 
draw text (50,50,"Move mouse"); 


draw set colour(c blue); 


draw line width(start x,start y,target x,target y 
9); 
, , 


draw set colour(c yellow); 


draw line width(start x,start y,target x,target y 
3); 
, , 
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57 Random Building Generator 


Generates buildings of random height and colour. 


Create Event: 
grid Siże-324 
size=floor (room width/grid size); 


global.level-2; 


for(loop-1;loop«size-*t1;loop-t-1) 


( 


height of building-irandom range (2,10)-global.lev 
el; 


building array[loop,0]-height of building; 


colour ot building-chocse (e silver,c olive,c fuch 
Sia,c aqua,c lime,c red,c green,c white,c yellow, 
c purple,c orange); 


building array[loop,1]-colour of building; 


for(loopz-1;10oop«31;loop-t-1) 
( 
xpos-grid size*loop; 
for (height=1;height<building array[loop,0];height 
+=1) 
( 


vpos-room height-(grid size*height); 


building-instance create layer (xpos,ypos,"Instanc 
es",obj block); 
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building.image blend=building array [loop,1] 


building.image index=irandom range(0,2); 


building. image speed-0; 


building-instance create layer (xpos, ypos- 
32,"Instances",obj block); 


building.image blend-building array[loop,1] 


building.image index-3; 


building.image speed-0; 
} 


Also uses obj block with sprites assigned. 
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58 Queue & Play Audio 


Queues audio. Great for queuing message and sound 
effects. 

Create Event: 

list-ds list create ()$ 


ds list add(list,Accessible Gaming,Pause,Avoid Th 
e Enemies,Pause,Use Left Mouse Button To Move,Pau 
se,You Lost This Round) 


voice-audio play sound(Pause,l,false); 


Step Event: 


if !audio is playing (voice) 


( 


il-08 list:siże(liet) 140 

( 
to play-list[|0]; 
voice-audio play sound(to play,1,0); 


ds list delete(list,0); 


if mouse check button pressed(mb left) 
{ 


room restart) 7 
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Draw Event: 


draw set font(c white); 


draw set font (font text); 


siże-ds. list size (list); 


draw text (100,200, size); 
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59 Boss Style Movement 


A boss style object with a repeating movement and 
shooting pattern. 


Create Event: 


alarm[0]=game get speed (gamespeed fps) /2; 
Step Event: 
if y<starty-60 && has fired--false 


( 


alarm[0]=game get speed (gamespeed fps)/2; 


has fired-true; 
} 
Alarm 0 Event: 
bullet COURT"; 
if bullet: count<4 


{ 


alarm[0]=game get speed (gamespeed fps) /2; 


instance create layer (x,y,"Instances",obj) bullet, 


( 
hspeed : -3 


} 
Path Ended Event: 


has fired-false; 


path start (Pathl,6,path action stop, true); 


bullet count=0; 
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60 Split Screen 


This example tracks two instances. 


There is no code as this is done in the rooms views 
settings. 


See example project file. 
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61 Check Spelling Of Word 


Allows you to check 1f a word exists within an 
included dictionary text file. Great for word themed 
games. 


Basic example Create Event: 


dictionary-ds list create(); 


dic file-file text open read("dictionary.txt"); 


whrletiltrle text eot(die Pa ley.) 


( 


word filie text read string(dic Tile): 


ds list add(dictionary,word); 


To check: 
word to find-string; 


position = ds list find index(dictionary, 
word to find); 


if position>0 
( 


result-'Is In Dictionary"; 


else 


result="Not In Dictionary"; 
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62 Player Character Selection 


Allows player to choose their character that will be 
their sprite in game. 

Create Event: 

current-1; 


alarm[0]-game get speed (gamespeed (ps) 42: 


sprite index-spr char 1; 

Step Event: 

if mouse check button(mb left) 

( 
global.character-sprite index; 
room goto (room game); 


} 
Alarm 0 Event: 


alarm[0]=game get speed (gamespeed fps) *2; 


current++; 

if current=6 current=1; 

if current--1 sprite index-spr char 1; 
if current==2 sprite index-spr char 2; 
if current==3 sprite index-spr char 3; 
1f current==4 sprite index=spr char 4; 
if current==5 sprite_index=spr char 5; 


Draw Event: 


x=100; 


y=100; 


draw self(); 
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To set the character, use something like the following 
in the Create Event of your character: 


Sprite index-global.character; 
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63 Weapon Control & Ammo Packs 


This keeps the instance within the room”s boundary. 
Assumes sprite origin as center. 


Create Event: 
ammo-6; 


Step Event: 
if mouse check button pressed(mb left) 


( 


if ammo»0 


( 
audio plav sound(snd gun,1,0); 


ammo--; 
else 
audio play sound(no ammo,1,false); 


} 

Draw Event: 

draw sprite(spr bullets left,ammo,100,100); 
To Add Ammo: 

obj example.ammo-6; 


audio play sound(extra ammo,1,false); 
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64 Move Towards Point Then Stop 


Moves an instance towards a point and then stops. 


Create Event: 


targetx-x; 


targety=y; 

spd=5; 

Step Event: 

if mouse check button pressed(mb left) 


( 


targetx=floor (mouse x); 


targetv-floor (mouse y); 


) 


dist-point distance (x,y,targetx,targety); 
if dist>0 
( 

if dist>spd 


( 


move towards point (targetx, targety, spd), 


else 


move towards point (targetx, targety,1): 
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65 Resize Based On Position 


Scales an instance based on it's Y position. 


Create Event: 


scale-0; 


Step Event: 
y=mouse y; 
y=clamp (y,128,room height-128); 
var ymin = 128, 
ymax = 640, 
range = ymax - ymin; 
scale = (y - ymin) / range; 


image xscale-scale; 


image yscale-scale; 
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66 Using Mouse Wheel To Select 
Weapon 


Allows user to change weapon using middle mouse 
wheel. 


Create Event: 
weapon=0; 
Step Event: 


if mouse wheel up() 


( 


weapon++; 


) 


if mouse wheel down() 


( 
weapon—-; 


) 


if weapon-image number 
( 
weapon=0; 
} 
if weapon--1 
( 


weapon-image number-1; 


) 


Draw Event: 
draw sprite(sprite index,weapon,x,y); 


draw text (100,100, string (weapon+1)+" of 
"+string (image number) ); 
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67 Font Drawing From Images 


Example for drawing sprites created from images. 


Create Event: 
global.font example=font add sprite ext (spr font, 
"1234567890ABCDEFGHIJKLMNOPORSTUVWXYZ ",false,4); 


example="Hello World Example 1267"; 


example=string upper (example); 


Draw Event: 
draw set font (global.font example); 


draw text (100,100, example) ; 
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68 Allow Player To Load Sprite 


Allows player to load an image file from their 
computer. Great to add a player's avatar. 


Create Event: 
var image; 
image-get open filename("Image File|*.png", ""); 
spr loaded-sprite add(image,0,true,false,0,0); 
Draw Event: 


draw sprite(spr loaded,0,200,200); 
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69 Enemy Shoots If Can See Player 


This system make the enemy shoot a bullet if it can see 
the player. 


Create Event: 
cam see-false; 


alarm[0]-game get speed(gameéspeed fps)*2; 


Step Event: 

LE 

collision line(x,y,obj player.x,obj player.y,obj _ 
crate, false, false) 


( 


can See=false; 


else 


can see-true; 
ł 


Tf Can ses 


( 


move towards point(obj plaver.x,obj player.y,1); 


angle to player-point direction(x,y,ob) player.x, 
obj player.y); 


ang-angle difference(image angle,angle to player) 


if ang>0 image angle--; 
else 


image angle++; 
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else 


speed-0; 
} 
Alarm 0 Event: 


alarm[0]-game get speed (gamespeed fps) *2; 


if can see 


( 


instance create layer(x,y,"Bullets",obj bullet, 


( 


speed : 5, 
direction : image angle, 
image angle : image angle 


}) 
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70 Randomly Place Instances Avoiding 
Instances 


This spawns a number of instances, no closer than a 
given distance to other defined instances. 


Create Event: 

repeat 20 

( 
xx-irandom(room width); 
yy=irandom(room height); 


inst-instance nearest (xx, yy,0obj crate); 


dist-point distance (xx,yy,inst.x,inst.y); 


while dist<200 

{ 
xx-irandom(room width); 
yy-irandom(room height); 


inst-instance nearest(xx,yy,obj crate); 


dist-point distance(xx,yy,inst.x,inst.y); 


instance create layer(xx,yy,"Instances",obj gem); 


) 
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71 Split Sentence 


This will split a sentence in to multiple lines of text, 
with breaks at end of words. 


Script: 


function split text into lines(text, maxWidth, 
font) { 


var lines = []; 
var currentLine = ""; 


var words — string split(text, " "); 


draw set font(font); 


for (var i = Or i < array length (words); i++) 


var word = words[i]; 


if (string width(currentLine +" "+ 
word) <= maxWidth) ( 


currentLine - currentLine - 
(currentLine = "" ? "nn : " ") + word; 


) else { 


Ines. array. lenge (lines)] = 


currentLine; 
currentLine = word; 
} 
} 
if (currentLine != "") { 
lines[array length(lines)] = currentLine; 
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return lines; 


) 
Example usage. 


Create Event: 


var text-"Lorem ipsum dolor sit amet, consectetur 
adipiscing elit, sed do eiusmod tempor incididunt 


ut labore et dolore magna aliqua. Ut enim ad 


minim veniam, quis nostrud exercitation ullamco 


laboris nisi ut aliquip ex ea commodo consequat. 


Duis aute irure dolor in reprehenderit in 
voluptate velit esse cillum dolore eu fugiat 


nulla pariatur. Excepteur sint occaecat cupidatat 
non proident, sunt in culpa qui officia deserunt 


t anim id est laborum."; 


H- 


mol] 


var max length=1000; 


var font=font text; 


text array = 
split text into lines (text,max length, font); 


Draw Event: 


draw Set fontifont text); 


for (var i = 0; i < array length(text array); i+ 


+) 
{ 


draw text (100,200+(1*45),text array[i]); 
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72 Simple Menu System 
A simple adaptable menu system. 


Create Event: 


current=l; 


alarm[0]=game get speed(gamespeed fps) *4; 


button text [1]="Play Game"; 


button text [2]-"Level Select"; 


button text [3]="Quit Game"; 


Alarm 0 Event: 


alarm[0]-game get speed (gamespeed fps)*4; 


current++; 

if current-4 current-1; 

Step Event: 

if mouse check button pressed(mb left) 

{ 
if current-l room goto (room play); 
if current=2 room goto(room Lew select); 
if current=3 room goto (room exit); 


) 


Draw Event: 


draw set font(font button); 


draw set halign(fa center); 


draw set valign(fa middle); 


xpos-room width/2; 
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ypos=200; 
1f current=1 


( 


draw sprite(spr button,0,xpos,ypos); 


else 


draw sprite(spr button,1,xpos,ypos); 
} 


draw text (xpos, vpos,button text [1]); 


ypos=400; 
1f current=2 


( 


draw sprite(spr button,0,xpos,ypos); 


else 


draw sprite(spr button,1,xpos,ypos); 
) 


draw text (xpos,ypos, button text[2]); 


ypos=600 
if current-3 


( 


draw sprite(spr button,0,xpos,vpos); 


else 
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draw sprite(spr button,l,xpos,ypos); 
) 


draw text (xpos,ypos, button text[3]); 
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73 Moving Spikes & Damage System 


Creates a spike that fades in and out, giving player 
damage with the alpha is greater than 0.5. 
Create Event of obj spike: 
alp-1; 
fade speed=0.01; 
out-true; 
Step Event: 
if out--true 
( 
alp-=fade speed; 
if alp<-1 
| 


out-false; 


alpr=fade Speed; 


if Alps 
( 


out-true; 


) 


Draw Event: 


draw sprite ext (sprite index,0,x,v,1,1,0,c white, 
alp); 
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Example collision code called from obj player 
Collision Event with spike object: 


if other.alp>0.5 

( 
if laudio is plaving(Arrghh) 
( 


audio plav sound(Arrghh,1,false); 
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74 Projectile Spread System 


Shoot multiple projects at slightly different angle. 


Obj Tower Step Event: 


Largetx-mouse Xx; 


targety-mouse y; 


direction-point direction (x,y,targetx,targety) 


image angle-direction; 


Step Event: 


Largetx-mouse Xx; 


targety-mouse y; 


direction-point direction (x,y,targetx,targety) 


image angle-direction; 


if mouse check button pressed(mb left) 


( 


missile-instance create layer (x+lengthdir x(30,im 


age angle), y+] 
dna ssec 


es",obj 
missil 


missi 


lengthdir y(30, image angle),"Instanc 
e); 


le. image angle-direction; 


le.direction=direction; 


missil 


le.speed=6; 


missile-instance create layer (x+lengthdir x(30,im 


age ang] 
es",obj 


missi]l 


missi 


Lei, y+] 


gmissil 


lengthdir y(30, image angle),"Instanc 
e); 


le. image angle-direction-20; 


le.direction=direction-20; 


missil 


le.speed=6; 


134 


missile=instance create layer (x+lengthdir x(30, im 
age angle),y+lengthdir y(30, image angle),"Instanc 


es",obj missile); 


missile.image angle=direction+20; 


missile.direction=direction+20; 


missile.speed=6; 
} 


obj_missile Outside Room Event: 


instance destroy(); 
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75 Ball Bounce & Squash 


Makes a ball bounce with a squashing effect. 


Create Event: 
gravity=0.1; 
dir="down" 

has hit-false; 


vspeed-=5; 


Step Event: 


if position meeting(x,ytl,obj crate) && 
has hit-false 


( 
gravitv-0; 
vspeed=0; 
has hit=true; 
} 
if has hit && dir="down" 
( 
image yscale--0.01; 
if image yscale<0.6 
( 


dir-"up"; 


} 
Lf has. _ hit £6 dir Up" 
{ 


image yscale+=0.01; 


rf image yscale>=l 
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vspeed=-5; 


has hit-false; 


gravity=0.1; 


dir="down"; 
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76 Status Effect 


Draws info on what the player is doing. 


Create Event: 


mess-"Up"; 


Step Event: 
if (keyboard check (ord ("W"))) 
( 
sprite index-spr up; 
image speed-1; 
mess-"Up"; 
} 
else if (keyboard check(ord("Ss"))) 
{ 
sprite index=spr down; 
image speed=1; 


mess-"Down"; 


else 
if (keyboard check (ord("A"))) 
( 
sprite index-spr left; 
image speed-1; 


mess-"Left"; 


else 


if (keyboard check (ord("D"))) 
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sprite index=spr right; 
image speed=1; 


mess-"Right"; 


else 


image speed-0; 
mess="Idle"; 


} 


Draw Event: 
draw self(); 


draw text (500,100,"Player is "+mess); 
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77 Foot Step Sounds With Animation 


A simple method to tie animation and sound effects. 
Step Event: 

if image index=0 or image index=12 

( 


audio play sound(snd footstep,1,false), 
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78 Game Fog 


Draws a fog effect over the room using a sprite. 
Create Event: 
fog=true; 
Step Event: 
if mouse check button pressed(mb left) 
( 
fog=!fog; 
} 
Draw Event: 
if fog 
{ 


draw sprite ext (spr fog,0,0,0,1,1,0,c white,0.6) 
} 
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79 Destruction With Multiple 
Subimages 


A destrucable crate with multiple subimages that is 
destroyed when all image frames have been used. 


Crate Event: 
image speed-0; 
image index-0; 
sub-0; 
total-image number-1; 
Step Event: 
if mouse check button pressed(mb left) 
( 
if instance position(mouse x,mouse v,id) 
( 
sub++; 


image index-sub; 


) 


if sub>total-1 instance destroy(); 
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80 Enemy Hide 


Makes an enemy find a hiding place 1f the player can 
see it. 

Create Event: 

Gar see=false; 

moving-false; 

xx=0; 
yy-0; 


found-false; 


path-path add(); 


grid = mp grid create(0,0, 
room width/32,room height/32,32,32); 


mp grid add instances(grid,obj crate,true); 


Step Event: 
if can see && found-false 


( 


var xx, yy; 


do 
( 
xx = irandom(room width); 
yy irandom(room height); 
) until (linstance position(xx, yy, 


obj crate) && collision line(xx, yy, 
obj player.x, obj player.y, obj crate, false, 
false) l- noone) 


found-true; 


mp grid path(path, grid, x, y, xx, yy, true); 


path start(path, 5, path action stop, true); 
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Path End Event: 


found-false; 


Hay 


can See-ralser 
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81 HUD Drawing On GUI Layer 


Draws a HUD on the GUI layer so 1t been seen when 
the view moves. 


Create Event: 
lives=5; 


Score-734; 


hp-100; 

Step Event: 

if keyboard check (ord("Z")) hp--; 
if keyboard check(ord("X")) hp++; 


hp=clamp (hp,0,100); 


Draw Event: 


var xsize-camera get view width(view camera[0]); 


var ysize-camera get view height(view camera[0]); 


draw set colour(c blue); 

draw set alpha(0.5); 

draw roundrect(30,30,xsize-30,80,false); 
draw set alpha(1), 

draw set colour(c white); 


draw roundrect (20,20,xsize-20,vsize-20,true); 


draw roundrect (30,30,xsize-30,80,true); 


draw set font(font text); 


draw set halign(fa center); 


draw set valign(fa middle); 
draw text (120,55, "LIVES"); 
for (var i-0; i<lives; i+= 1) 


( 
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draw: sprite(spr l1ves,0,2204(55*1),55) 
} 
draw set halign(fa right); 


var str = string(score); 


draw text (xsize-50, 55,"SCORE 
"+string_repeat("0", 6-string_length (str))+str); 


scale = relerp(0, 100, hp, 0, 1); 


draw sprite ext (spr bar bg,0,xsize/2- 
92,95, Scale,1,0,c white,1); 


draw sprite(sbr bar,0,xsize/2,55); 
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82 Scroll Block Of Text Up and Down 


This allows for scrolling through a large block of text. 


Create Event: 


adipiscing elit, 


minim veniam, 
laboris nisi 


var text="Lorem ipsum dolor sit amet, consectetur 
sed do eiusmod tempor incididunt 
ut labore et dolore magna aliqua. Ut enim ad 
quis nostrud exercitation ullamco 
ut aliquip ex ea commodo consequat. 


Du 
VO 


nul 
non 
mol]l 
amet, 


al 


ea commodo consequ 
reprehenderit in vol 
dolore eu fugiat 
occaecat cupida 
qui officia deseru 


is aute irure 


Tet 


luptate v 
la paria! 


SS 


proiden 
it anim 


t, sunt 
id est 


laborum. 


iqua. 


consectetur adipiscing elit, 
tempor incididunt ut 
Ut enim ad minim veniam, 
exercitation ullamco 


laborum."; 


var max length-100 
var font-fon 


text array 


t. Duis aute irure do 
uptate velit 
nulla pariatur. 
t non proident, sunt in 
nt mollit anim id est 


al 


Gi 


SS 


La 


0; 


t tex 


. 
Se: 


dolor in reprehenderit in 
cillum dolore eu fugiat 
tur. Excepteur sint occaecat cupida 
in culpa qui officia deserunt 
Lorem ipsum dolor sit 
sed do eiusmod 
labore et dolore magna 


ta 


quis nostrud 
laboris nisi ut aliquip ex 


lor in 


llum 
Excepteur sint 


culpa 


split text into lines (text,max length, font); 


ypos=0; 


he 


ight=0; 


Step Event: 


if keyboard check (ord("W") ) 


ypos-7; 


if keyboard check (ord("S")) 
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ypostt; 


min lines=8; 
height= (array length (text array)-min lines) *45; 


ypos=clamp (ypos, 0, height); 


Draw Event: 


draw set font (font text); 


for (var i = 0; i < array length[(text array)g i+ 
+) 


{ 
draw text (50, (-ypos)+(1*45), text array[i]); 
} 


draw text (1080,50,"WS To Move\nText Up and 
Down"); 
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83 Blood Spray Effect 


An adaptable effect for creating a blood style 
explosion. 

Create Event: 

count-0; 

direction-irandom range (50,140) 

image angle=direction; 

speed=random (5); 

scale-random range(0.1,1); 

alp-1; 

fade speed-random range (0.001,0.02); 


image xscale-scale; 


image yscale-scale; 


image index-choose (0,1); 


Step Event: 
alp--fade speed; 
if alp«-0 instance destroy(); 


Draw Event: 


draw sprite ext(sprite index,image index,x,y,imag 
e xscale,image yscale,image angle,c white,alp); 


Example spawn code in control object: 
if mouse check button pressed(mb left) 
(repeat (30) 

( 


instance create layer (mouse x,mouse y,"Instances" 
„obj blood); 


}} 
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84 Voice On Level Up 


Level up system that plays a voice on level up or level 
down. 

Create Event: 

boost=0; 

level-1; 

previous-1; 


audio play sound(ew E 


Step Event: 


if mouse check button pressed(mb left) 
boost--; 
if mouse check button pressed(mb right) 


( 


boost++; 


boost=clamp (boost,0,60); 


1f boost>60 boost=60; 


if boost>0 and boostx10 
( 

level-1; 

if previous!=level 

( 


audio plav sound(lev 1,1,false); 


previous=1; 
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} 
if boost>10 and boost<20 
{ 

level=2; 

if previous!=level 

{ 


audio play sound(lev 2,1,false); 


previous-2; 


} 
if boost>20 and boost<30 
{ 
level=3; 
if previous!=level 
{ 
audio play sound(lev_3,1,false); 


previous=3; 


} 
if boost>30 and boost<40 
{ 
level=4; 
if previous!=level 
{ 
audio play sound(lev 4,1,false); 


previous=4; 
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) 


if boost>40 and boost«50 


( 
level=5; 
if previous!=level 


{ 
audio play sound(lev 5,1,false); 


previous=5; 


if boost>50 and boost<60 


( 
level-6; 
if previous!=level 


( 
audio plav sound(lev 6,1,false); 


previous=6; 


) 


Draw Event: 


draw set font(font info); 


draw set colour(c white); 


draw text(50,50,"Left and Right Mouse Buttons To 
Change Value"); 


draw text(50,100,"Value "+string(boost)); 
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85 Wind Blown Effect 


Makes a sprite move like it has a wind force on it, 


Script: 


function 
draw grass with wind(sprite,subimg,x,y,amplitude, 
frequency,phase)( 


var w-spri 


Var 


Var 


Var 


var 


var 


var 


var 


var 


var 


var 


var 


var 


var 


var 


var 


te ge 


h=sprite ge 


wavel=ampl 
wave2-ampl 


wave3-ampl 


X 


y 


l=x+wavel 


l-V; 


i 


i 


t height (spri 


tude*sin (freq 


tude*sin (freq 


tude*sin (freq 


x2=x+w+wavel; 


y2=y; 


X3=X1 
y3=y1 
x4=x4 
vd-vi 


X5=X1 


yo=yth; 


x6-—x4 


var yo=yth; 


FWwave2; 


Fh 05.537 


Fh*0.5; 


Fwave3; 


twtwave2; 


twtwave3; 


t width (sprite); 


EO) 


uency*0+phase) ; 


uency*0.5*h+phase) ; 


uency*h+phase) ; 


draw primitive begin texture(pr trianglestrip,spr 


ltecget textus 


draw vertex t 


draw vertex t 


(sprite,subimg)); 


cure (x1,y1,0, 


ture (x2,y2,1, 


draw vertex tex 


ture (x3,y3,0, 


0); 
0); 
(0 :5)5 
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draw vertex texture (x4,y4,1,0.5); 


draw vertex texture(x5,y5,0,1); 


draw vertex texture(x6,y6,1,1); 


draw primitive end(); 
) 


Draw Event: 

sprite index-spr grass; 
var subimg index-0; 

var x position-100; 


var y position-100; 


var amplitude=10; 


var frequency=0.05; 


var phase-current time/1000; 


draw grass with wind(sprite index, subimg index,x 
position,y position,amplitude, frequency, phase) ; 
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86 Double Jump 


Allow player to perform a double jump. 


Create Event: 
gravity=0.1; 
jumps-0; 
Step Event: 
if instance place(x, bbox bottom + 1, obj crate) 
( 
vspeed=0; 

y=y-1; 

jumps=0; 
} 
if mouse check button pressed(mb left) && jumps<2 
( 

vspeed=-6; 


jumps++; 
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87 Meteor Shower Effect 


Creates a meteor and explosion effect, great to add 
atmosphere to your game. 
Spawn object Step Event example: 
if mouse check button pressed(mb left) 
( 

repeat (6) 

( 

xpos-irandom range (50, room width-50); 


instance create laver(xpos,- 
100,"Instances",obj meteor); 


) 
) 


obj meteor Create Event: 
count-0; 
direction-irandom range (220,320); 
image angle-direction; 
Speed-5; 
destroy at-irandom range (50,170); 
Step Event: 
count++; 
if count>destroy at 
{ 
repeat (10) 
{ 
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instance create laver(x,v, 'Instances'',0bj explosi 
on); 


) 


instance destroy(); 
) 
obj explosion Create Event: 
image angle-irandom(359); 
direction-image angle; 
Speed-5; 
Animation End Event: 


instance destroy(); 
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88 Footstep Dust Effect 


Makes a small effect when an instance walks. 


Just pop this code in the Step Event: 
if floor(image index)-7 or floor(image index)-18 


( 


effect create above(ef smoke,x,y,3,c maroon); 
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89 Float & Die Effect 


Shows an enemy dead and makes it wobble and fade. 


Create Event: 
alive=true; 
hp=100; 
alp=1; 

ang=0; 

Sw=2; 

Step Event: 


if alive 


alive=false; 


image speed=0; 


alp-=0.004; 

Y--r 

sw+=0.2; 

ang=sin (sw) *5; 
) 


if alp<0 instance destroy(); 
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Draw Event: 
1f alive 
( 


draw self(); 


else 


draw sprite ext (sprite index, image index,x,y,1,- 
l,ang,c white,alp); 


) 
draw set colour(c white); 


draw text (x,y-100,hp); 


160 


90 Fly Level Effect 


Return a flying plane to middle when player stops 
movement. 


Step Event: 
if keyboard check (ord("W")) 
( 
y--2; 
) 
else 


if keyboard check (ord("S")) 


yt-2; 


VEF; 


y=clamp (y,50,room height-50); 
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91 Dash Movement 


Allows player to dash in the direction it is facing. 
Create Event: 

onm Ice false; 

dash=false; 


count-0; 


count max-30; 


Step Event: 
if kevboard check(ord('A')) 
( 

X-=2; 

image xscale--1; 
) 
if keyboard check (ord ("D")) 
( 

x+=2; 


image xscale-1; 


if keyboard check pressed(vk space) 
( 


dash-true; 


if dash 
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x+=sign (image xscale)*6 
count++; 

} 

if count>=count max 

( 
dash-false; 


count-0; 
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92 Walking On Ice 


Makes a player slide when moving on ice. 


Create Event: 

on ice-false; 

Step Event: 

if position meeting(x,v-2,0bj ice) 
( 


on ice-true; 
else 


Qm ice=false; 
) 
LE on roe 
( 
if keyboard check (ord (MAS) 
( 
motion add(180,.2); 
) 
else if keyboard check(órd("D")) 
( 


motion add(0,.2); 
else 


hspeed-hspeed*0.99; 
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if !on ice 


if keyboard check (ord("A")) 


x--2; 


x+=2; 


hspeed=0; 


x=clamp (x,sprite width,room width-sprite width); 
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93 Underwater Effect 


Creates an underwater effect using effects layer and 
sprites. 


Effect Layer 
Effect 1 


++ 
Fa 


Open Editor 


A Filters & Effects 


Effect Type: Underwater 


Distort 1 
Speed 


Distort 2 
Speed 


Distort 1 Scale 1 20 


Distort 2 Scale 1 100 


Distort 1 
Amount 


Distort 2 
Amount 


Chroma 
Spread 
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94 Hint Arrow To Direction Of Powerup 


Gives the player a hint of which direction the nearest 
power up is. 

Create Event: 

target-noone; 


ang-0; 


target ang-0; 

diff=0; 

Step Event: 

x=mouse x; 

y=mouse y; 

if instance exists (ob) powerup) 


( 


target-instance nearest(x,v,obj powerup); 


target ang-point direction(x,v,target.x,target.v) 


diff-angle difference (ang, target ang); 
if sign(diff)>0 ang-- else ang++ 


else 


target=noone; 
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Draw Event: 

draw _self(); 

if instance exists (target) 

( 

draw sprite ext (spr arrow,0,x,y,1,1,ang,c white,l 
); 

) 
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95 Button To Open Website 


A button that the player can click to visit a website. 


Step Event for an object with a button assigned: 


if mouse check button pressed(mb left) && 
instance position(mouse x,mouse y,id) 


( 


url open ("http://gamemakerexamples.com"); 
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96 Health Pack Slowly Increase Health 


Slowly increases the player's health when they collect 
a health pack. 

Create Event: 

health=20; 

target=20; 

Step Event: 

inst=noone 

if mouse check button pressed(mb left) 

( 


inst-instance position(mouse x,mouse v,obj health 


); 


if instl-noone 
( 
target=target+20; 


with inst instance destroy (); 


if health«target 
( 
health+=0.2; 
show debug message (health); 


) 


Draw Event: 


draw healthbar(100,300,500,350,health,c grey,c re 
d,c green,0,true,true), 


170 


97 Change Enemy Colour When 
Targeted 
Changes the enemy colour when it is targeted. 


Controller Create Event: 


global.selected=noone; 


Step Event: 
if mouse check button pressed(mb left) 
( 
var list-arrav create(); 
with obj enemv 
( 
arrav push(list,id); 
) 
var size-array length(list); 
( 
choice-irandom(size-1); 
global.selected=list [choice]; 
) 


array delete(list); 


171 


obj enemy Draw Event: 
if global.selected=id 


( 


draw sprite ext (sprite index,0,x,y,1,1,0,c red,1) 


else 


draw self(); 
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98 Limit Weapon Shooting Timer 


Limits how quickly the player can shoot their weapon. 


Create Event: 


delay=game get speed (gamespeed fps)*3; 
can shoot=true; 
Step Event: 


if mouse check button pressed(mb left) && 
can shoot 


( 
can shoot-false; 


alarm[0]-delay: 


instance create layer(x,y,"bullet",obj missile, 
( 
hspeed : 5)); 
} 
Alarm 0 Event: 
can shoot=true; 
Draw Event: 
draw self(); 
if can shoot 


( 
draw text(x,y-180,"Can Shoot"); 


else 


draw text(x,y-180,"Wait"); 
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99 Clock Stopwatch 


A stop watch time with hundredths of seconds. 


Create Event: 


stopwatch time-0; 


stopwatch running-false; 

game set speed(100, gamespeed fps); 
Step Event: 

if (stopwatch running) 


( 


stopwatch time+=1; 
) 
if mouse check button pressed(mb left) 
( 
stopwatch running=!stopwatch running; 
} 
if mouse check button pressed(mb right) 


( 


stopwatch running-false; 


stopwatch time-0; 

) 

Draw Event: 

var total seconds-floor(stopwatch time/100); 
var minutes-floor(total seconds/60); 


var seconds-totael seconds mod 60; 


var hundredths-stopwatch time mod 100; 


minutes-string (minutes); 
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m 
S 


S 


S 
S 


h 


h 
S 


d 
h 


inutes=string_repeat ("0",2- 
tring length (minutes) ) minutes, 


econds=string (seconds); 


econds-string repeat("0",2- 
tring length (seconds) ) +seconds; 


undredths=string (hundredths); 


undredths=string repeat ("0",2- 


tring length (hundredths) ) +hundredths; 
raw text (100,110,minutes+":"+seconds+":"+string ( 
undredths)); 
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100 Weapon Power & Direction System 


Allows user to choose an angle and power of a 
projectile. 

Create Event: 

ang-45; 

dir-1; 

pow=0; 


state-"aim"; 


Step Event: 
if state="aim" 
( 

ang+=dir; 


D zj 


if ang>90 dir=-1; 


" 


E 


if ang<20 dir=+1; 


` 


} 
if state="power" 
{ 
pow-t-dir; 
if pow>100 dir=-1; 
if pow<20 dir=+1; 
) 
image angle-ang; 


ae =j 


if mouse check button pressed (mb: left) && 
state="aim" 


state="power"; 


exit; 
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) 


if mouse check button pressed(mb left) && 
state="power" 


state-"aim"; 


inst-instance create layer(x,y,"bullet",obj bulle 


inst.speed-pow/8; 
inst.image angle-ang; 


inst.direction-ang; 


exit; 
} 


Draw Event: 


draw_text(x,y+250,"Angle "+string(ang) ); 


draw text (x, y+300,"Power "+string (pow) ); 


draw_self(); 
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101 Creating Effect On Collision 


Uses built in effects to create visuals when colliding. 


Step Event: 

x-mouse x; 

y-mouse y; 

inst-instance place(x,y,obj enemy); 
if inst!-noone 

( 


avx-x-((x-inst.x)/2); 


avy-y-((y-inst.y)/2); 


effect create above(ef spark,avx,avy,5,c yellow); 


effect create above(etf.rlaro,avx,avy,o,C green); 


effect create above(ef ring,avx,avy,5,c white); 
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